(string-key-binding): Don't call event-start on

a non-list.

diff --git a/lisp/help.el b/lisp/help.el
index 83d8a65a9c96ad079749c90230f5d3ae29b239d7..c1e6ac8c51ecf8b5550ce6ad4f2ac109df1a619a 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -214,7 +214,8 @@ or `keymap' property, return the binding of KEY in the string's keymap."
         (start (when (vectorp key)
                  (if (memq (aref key 0) '(mode-line header-line))
                      (event-start (aref key 1))
-                   (event-start (aref key 0)))))
+                   (and (consp (aref key 0)) 
+                        (event-start (aref key 0))))))
         (string-info (and (consp start) (nth 4 start))))
     (when string-info
       (let* ((string (car string-info))